! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! The ODE Function of Chemical Model File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : aromatics_kpp_Function.f90
! Time                 : Fri Dec 20 17:45:08 2019
! Working directory    : /n/home08/kbates/Aromatics/GC_NOx_recycle
! Equation file        : aromatics_kpp.kpp
! Output root filename : aromatics_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE aromatics_kpp_Function

  USE aromatics_kpp_Parameters
  IMPLICIT NONE

! A - Rate for each equation
  REAL(kind=dp) :: A(NREACT)

CONTAINS


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Fun - time derivatives of variables - Agregate form
!   Arguments :
!      V         - Concentrations of variable species (local)
!      F         - Concentrations of fixed species (local)
!      RCT       - Rate constants (local)
!      Vdot      - Time derivative of variable species concentrations
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE Fun ( V, F, RCT, Vdot )

! V - Concentrations of variable species (local)
  REAL(kind=dp) :: V(NVAR)
! F - Concentrations of fixed species (local)
  REAL(kind=dp) :: F(NFIX)
! RCT - Rate constants (local)
  REAL(kind=dp) :: RCT(NREACT)
! Vdot - Time derivative of variable species concentrations
  REAL(kind=dp) :: Vdot(NVAR)


! Computation of equation rates
  A(1) = RCT(1)*V(61)
  A(2) = RCT(2)*V(61)*V(145)
  A(3) = RCT(3)*V(61)*V(149)
  A(4) = RCT(4)*V(61)*V(153)
  A(5) = RCT(5)*V(61)*V(153)
  A(6) = RCT(6)*V(28)
  A(7) = RCT(7)*V(145)*V(149)
  A(8) = RCT(8)*V(145)*V(153)
  A(9) = RCT(9)*V(149)*V(149)
  A(10) = RCT(10)*V(149)*V(154)
  A(11) = RCT(11)*V(153)*V(154)
  A(12) = RCT(12)*V(153)*V(154)
  A(13) = 5.35e+07*V(28)
  A(14) = RCT(14)*V(145)*V(148)
  A(15) = RCT(15)*V(56)*V(148)
  A(16) = RCT(16)*V(62)*V(148)
  A(17) = RCT(17)*V(145)*V(158)
  A(18) = RCT(18)*V(148)*V(158)
  A(19) = RCT(19)*V(158)*V(158)
  A(20) = RCT(20)*V(148)*V(149)
  A(21) = RCT(21)*V(148)*V(153)
  A(22) = 2e-11*V(148)*V(154)
  A(23) = RCT(23)*V(149)*V(158)
  A(24) = RCT(24)*V(153)*V(158)
  A(25) = RCT(25)*V(53)*V(148)
  A(26) = 4e-12*V(154)*V(158)
  A(27) = RCT(27)*V(38)*V(148)
  A(28) = RCT(28)*V(105)*V(148)
  A(29) = RCT(29)*V(145)
  A(30) = RCT(30)*V(145)
  A(31) = RCT(31)*V(62)
  A(32) = RCT(32)*V(153)
  A(33) = RCT(33)*V(154)
  A(34) = RCT(34)*V(154)
  A(35) = RCT(35)*V(38)
  A(36) = RCT(36)*V(105)
  A(37) = RCT(37)*V(154)*V(154)
  A(38) = RCT(38)*V(33)
  A(39) = RCT(39)*V(53)
  A(40) = RCT(40)*V(33)
  A(41) = RCT(41)*V(53)
  A(42) = RCT(42)*V(39)*V(148)
  A(43) = RCT(43)*V(149)*V(151)
  A(44) = RCT(44)*V(151)*V(158)
  A(45) = RCT(45)*V(151)*V(151)
  A(46) = RCT(46)*V(151)*V(151)
  A(47) = RCT(47)*V(151)*V(153)
  A(48) = RCT(48)*V(47)
  A(49) = RCT(49)*V(50)*V(148)
  A(50) = RCT(50)*V(50)*V(148)
  A(51) = RCT(51)*V(132)*V(148)
  A(52) = RCT(52)*V(132)*V(154)
  A(53) = RCT(53)*V(109)*V(148)
  A(54) = RCT(54)*V(147)*V(148)
  A(55) = RCT(55)*V(50)
  A(56) = RCT(56)*V(132)
  A(57) = RCT(57)*V(132)
  A(58) = RCT(58)*V(47)
  A(59) = RCT(59)*V(47)
  A(60) = RCT(60)*V(29)*V(148)
  A(61) = RCT(61)*V(149)*V(157)
  A(62) = RCT(62)*V(157)*V(158)
  A(63) = RCT(63)*V(157)*V(157)
  A(64) = RCT(64)*V(157)*V(157)
  A(65) = RCT(65)*V(151)*V(157)
  A(66) = RCT(66)*V(151)*V(157)
  A(67) = RCT(67)*V(153)*V(157)
  A(68) = RCT(68)*V(49)
  A(69) = RCT(69)*V(54)*V(148)
  A(70) = RCT(70)*V(54)*V(148)
  A(71) = RCT(71)*V(112)*V(148)
  A(72) = RCT(72)*V(112)*V(154)
  A(73) = RCT(73)*V(88)*V(148)
  A(74) = RCT(74)*V(40)*V(148)
  A(75) = RCT(75)*V(54)
  A(76) = RCT(76)*V(112)
  A(77) = RCT(77)*V(112)
  A(78) = RCT(78)*V(49)
  A(79) = RCT(79)*V(49)
  A(80) = RCT(80)*V(30)*V(148)
  A(81) = RCT(81)*V(36)*V(148)
  A(82) = RCT(82)*V(48)*V(148)
  A(83) = RCT(83)*V(48)*V(154)
  A(84) = RCT(84)*V(57)*V(158)
  A(85) = RCT(85)*V(57)*V(149)
  A(86) = RCT(86)*V(58)*V(158)
  A(87) = RCT(87)*V(58)*V(149)
  A(88) = RCT(88)*V(67)*V(158)
  A(89) = RCT(89)*V(67)*V(149)
  A(90) = RCT(90)*V(114)*V(157)
  A(91) = RCT(91)*V(127)*V(157)
  A(92) = RCT(92)*V(131)*V(157)
  A(93) = RCT(93)*V(141)*V(157)
  A(94) = RCT(94)*V(143)*V(157)
  A(95) = RCT(95)*V(125)*V(157)
  A(96) = RCT(96)*V(130)*V(157)
  A(97) = RCT(97)*V(123)*V(157)
  A(98) = RCT(98)*V(129)*V(157)
  A(99) = RCT(99)*V(152)*V(157)
  A(100) = RCT(100)*V(152)*V(157)
  A(101) = RCT(101)*V(155)*V(157)
  A(102) = RCT(102)*V(155)*V(157)
  A(103) = RCT(103)*V(66)*V(148)
  A(104) = RCT(104)*V(66)*V(148)
  A(105) = RCT(105)*V(71)*V(148)
  A(106) = RCT(106)*V(142)*V(148)
  A(107) = RCT(107)*V(142)*V(154)
  A(108) = RCT(108)*V(153)*V(155)
  A(109) = RCT(109)*V(59)
  A(110) = RCT(110)*V(149)*V(155)
  A(111) = RCT(111)*V(44)*V(148)
  A(112) = RCT(112)*V(131)*V(149)
  A(113) = RCT(113)*V(31)*V(148)
  A(114) = RCT(114)*V(31)*V(148)
  A(115) = RCT(115)*V(114)*V(149)
  A(116) = RCT(116)*V(127)*V(149)
  A(117) = RCT(117)*V(43)*V(148)
  A(118) = RCT(118)*V(141)*V(149)
  A(119) = RCT(119)*V(141)*V(149)
  A(120) = RCT(120)*V(143)*V(149)
  A(121) = RCT(121)*V(125)*V(149)
  A(122) = RCT(122)*V(130)*V(149)
  A(123) = RCT(123)*V(137)*V(149)
  A(124) = RCT(124)*V(137)
  A(125) = RCT(125)*V(122)*V(149)
  A(126) = RCT(126)*V(134)*V(149)
  A(127) = RCT(127)*V(134)
  A(128) = RCT(128)*V(117)*V(149)
  A(129) = RCT(129)*V(123)*V(149)
  A(130) = RCT(130)*V(140)*V(149)
  A(131) = RCT(131)*V(140)*V(154)
  A(132) = RCT(132)*V(133)*V(154)
  A(133) = RCT(133)*V(120)*V(154)
  A(134) = RCT(134)*V(120)*V(149)
  A(135) = RCT(135)*V(120)*V(153)
  A(136) = RCT(136)*V(120)*V(158)
  A(137) = RCT(137)*V(110)*V(154)
  A(138) = RCT(138)*V(110)*V(149)
  A(139) = RCT(139)*V(110)*V(158)
  A(140) = RCT(140)*V(110)*V(151)
  A(141) = RCT(141)*V(133)*V(145)
  A(142) = RCT(142)*V(133)*V(148)
  A(143) = RCT(143)*V(107)*V(149)
  A(144) = RCT(144)*V(107)*V(158)
  A(145) = RCT(145)*V(107)*V(151)
  A(146) = RCT(146)*V(140)*V(140)
  A(147) = RCT(147)*V(129)*V(149)
  A(148) = RCT(148)*V(43)*V(154)
  A(149) = RCT(149)*V(148)*V(156)
  A(150) = RCT(150)*V(104)*V(148)
  A(151) = RCT(151)*V(146)*V(148)
  A(152) = RCT(152)*V(152)*V(153)
  A(153) = RCT(153)*V(35)
  A(154) = RCT(154)*V(46)*V(153)
  A(155) = RCT(155)*V(128)*V(153)
  A(156) = RCT(156)*V(94)
  A(157) = RCT(157)*V(87)
  A(158) = RCT(158)*V(149)*V(152)
  A(159) = RCT(159)*V(128)*V(149)
  A(160) = RCT(160)*V(146)*V(154)
  A(161) = RCT(161)*V(98)*V(148)
  A(162) = RCT(162)*V(114)*V(151)
  A(163) = RCT(163)*V(127)*V(151)
  A(164) = RCT(164)*V(141)*V(158)
  A(165) = RCT(165)*V(143)*V(158)
  A(166) = RCT(166)*V(125)*V(158)
  A(167) = RCT(167)*V(130)*V(158)
  A(168) = RCT(168)*V(137)*V(158)
  A(169) = RCT(169)*V(122)*V(158)
  A(170) = RCT(170)*V(134)*V(158)
  A(171) = RCT(171)*V(117)*V(158)
  A(172) = RCT(172)*V(123)*V(158)
  A(173) = RCT(173)*V(140)*V(158)
  A(174) = RCT(174)*V(129)*V(158)
  A(175) = RCT(175)*V(148)*V(150)
  A(176) = RCT(176)*V(131)*V(151)
  A(177) = RCT(177)*V(150)*V(154)
  A(178) = RCT(178)*V(141)*V(151)
  A(179) = RCT(179)*V(143)*V(151)
  A(180) = RCT(180)*V(125)*V(151)
  A(181) = RCT(181)*V(130)*V(151)
  A(182) = RCT(182)*V(137)*V(151)
  A(183) = RCT(183)*V(137)*V(137)
  A(184) = RCT(184)*V(126)*V(151)
  A(185) = RCT(185)*V(122)*V(151)
  A(186) = RCT(186)*V(134)*V(151)
  A(187) = RCT(187)*V(117)*V(151)
  A(188) = RCT(188)*V(123)*V(151)
  A(189) = RCT(189)*V(140)*V(151)
  A(190) = RCT(190)*V(129)*V(151)
  A(191) = RCT(191)*V(65)*V(148)
  A(192) = RCT(192)*V(96)*V(148)
  A(193) = RCT(193)*V(131)*V(131)
  A(194) = RCT(194)*V(131)*V(131)
  A(195) = RCT(195)*V(131)*V(158)
  A(196) = RCT(196)*V(114)*V(158)
  A(197) = RCT(197)*V(127)*V(158)
  A(198) = RCT(198)*V(155)*V(158)
  A(199) = RCT(199)*V(152)*V(158)
  A(200) = RCT(200)*V(128)*V(158)
  A(201) = RCT(201)*V(103)*V(148)
  A(202) = RCT(202)*V(103)*V(145)
  A(203) = RCT(203)*V(87)*V(148)
  A(204) = RCT(204)*V(94)*V(148)
  A(205) = RCT(205)*V(87)*V(145)
  A(206) = RCT(206)*V(4)*V(148)
  A(207) = RCT(207)*V(119)*V(148)
  A(208) = RCT(208)*V(119)*V(148)
  A(209) = RCT(209)*V(103)*V(154)
  A(210) = RCT(210)*V(111)*V(148)
  A(211) = RCT(211)*V(135)*V(148)
  A(212) = RCT(212)*V(111)*V(154)
  A(213) = RCT(213)*V(135)*V(154)
  A(214) = RCT(214)*V(102)*V(148)
  A(215) = RCT(215)*V(144)*V(148)
  A(216) = RCT(216)*V(139)*V(148)
  A(217) = RCT(217)*V(138)*V(148)
  A(218) = RCT(218)*V(138)*V(148)
  A(219) = RCT(219)*V(114)*V(155)
  A(220) = RCT(220)*V(127)*V(155)
  A(221) = RCT(221)*V(114)*V(155)
  A(222) = RCT(222)*V(127)*V(155)
  A(223) = RCT(223)*V(102)*V(145)
  A(224) = RCT(224)*V(144)*V(145)
  A(225) = RCT(225)*V(139)*V(145)
  A(226) = RCT(226)*V(102)*V(154)
  A(227) = RCT(227)*V(139)*V(154)
  A(228) = RCT(228)*V(139)*V(154)
  A(229) = RCT(229)*V(151)*V(152)
  A(230) = RCT(230)*V(128)*V(151)
  A(231) = RCT(231)*V(151)*V(152)
  A(232) = RCT(232)*V(128)*V(151)
  A(233) = RCT(233)*V(85)*V(148)
  A(234) = RCT(234)*V(85)*V(148)
  A(235) = RCT(235)*V(64)*V(148)
  A(236) = RCT(236)*V(55)*V(148)
  A(237) = RCT(237)*V(51)*V(148)
  A(238) = RCT(238)*V(52)*V(148)
  A(239) = RCT(239)*V(81)*V(148)
  A(240) = RCT(240)*V(60)*V(148)
  A(241) = RCT(241)*V(63)*V(148)
  A(242) = RCT(242)*V(79)*V(148)
  A(243) = RCT(243)*V(72)*V(148)
  A(244) = RCT(244)*V(80)*V(148)
  A(245) = RCT(245)*V(79)*V(148)
  A(246) = RCT(246)*V(72)*V(148)
  A(247) = RCT(247)*V(80)*V(148)
  A(248) = RCT(248)*V(6)*V(148)
  A(249) = RCT(249)*V(41)*V(148)
  A(250) = RCT(250)*V(42)*V(148)
  A(251) = RCT(251)*V(37)*V(148)
  A(252) = RCT(252)*V(108)*V(158)
  A(253) = RCT(253)*V(108)*V(149)
  A(254) = RCT(254)*V(75)*V(148)
  A(255) = RCT(255)*V(74)*V(148)
  A(256) = RCT(256)*V(70)*V(148)
  A(257) = RCT(257)*V(70)*V(148)
  A(258) = RCT(258)*V(83)*V(148)
  A(259) = RCT(259)*V(83)*V(148)
  A(260) = RCT(260)*V(121)*V(155)
  A(261) = RCT(261)*V(121)*V(155)
  A(262) = RCT(262)*V(121)*V(151)
  A(263) = RCT(263)*V(121)*V(121)
  A(264) = RCT(264)*V(121)*V(158)
  A(265) = RCT(265)*V(121)*V(149)
  A(266) = RCT(266)*V(121)*V(149)
  A(267) = RCT(267)*V(45)*V(148)
  A(268) = RCT(268)*V(44)*V(154)
  A(269) = RCT(269)*V(136)*V(145)
  A(270) = RCT(270)*V(155)*V(155)
  A(271) = RCT(271)*V(151)*V(155)
  A(272) = RCT(272)*V(151)*V(155)
  A(273) = RCT(273)*V(141)*V(155)
  A(274) = RCT(274)*V(125)*V(155)
  A(275) = RCT(275)*V(130)*V(155)
  A(276) = RCT(276)*V(137)*V(155)
  A(277) = RCT(277)*V(126)*V(155)
  A(278) = RCT(278)*V(122)*V(155)
  A(279) = RCT(279)*V(134)*V(155)
  A(280) = RCT(280)*V(123)*V(155)
  A(281) = RCT(281)*V(143)*V(155)
  A(282) = RCT(282)*V(117)*V(155)
  A(283) = RCT(283)*V(140)*V(155)
  A(284) = RCT(284)*V(129)*V(155)
  A(285) = RCT(285)*V(141)*V(155)
  A(286) = RCT(286)*V(125)*V(155)
  A(287) = RCT(287)*V(130)*V(155)
  A(288) = RCT(288)*V(137)*V(155)
  A(289) = RCT(289)*V(126)*V(155)
  A(290) = RCT(290)*V(122)*V(155)
  A(291) = RCT(291)*V(134)*V(155)
  A(292) = RCT(292)*V(143)*V(155)
  A(293) = RCT(293)*V(117)*V(155)
  A(294) = RCT(294)*V(140)*V(155)
  A(295) = RCT(295)*V(129)*V(155)
  A(296) = RCT(296)*V(123)*V(155)
  A(297) = RCT(297)*V(131)*V(155)
  A(298) = RCT(298)*V(131)*V(155)
  A(299) = RCT(299)*V(152)*V(155)
  A(300) = RCT(300)*V(128)*V(155)
  A(301) = RCT(301)*V(100)*V(145)
  A(302) = RCT(302)*V(124)*V(145)
  A(303) = RCT(303)*V(136)*V(148)
  A(304) = RCT(304)*V(126)*V(149)
  A(305) = RCT(305)*V(126)*V(149)
  A(306) = RCT(306)*V(126)*V(158)
  A(307) = RCT(307)*V(124)*V(148)
  A(308) = RCT(308)*V(100)*V(148)
  A(309) = RCT(309)*V(115)*V(149)
  A(310) = RCT(310)*V(115)*V(158)
  A(311) = RCT(311)*V(118)*V(149)
  A(312) = RCT(312)*V(118)*V(158)
  A(313) = RCT(313)*V(82)*V(148)
  A(314) = RCT(314)*V(106)*V(148)
  A(315) = RCT(315)*V(113)*V(148)
  A(316) = RCT(316)*V(97)*V(149)
  A(317) = RCT(317)*V(97)*V(158)
  A(318) = RCT(318)*V(97)*V(153)
  A(319) = RCT(319)*V(34)
  A(320) = RCT(320)*V(78)*V(148)
  A(321) = RCT(321)*V(93)*V(149)
  A(322) = RCT(322)*V(93)*V(149)
  A(323) = RCT(323)*V(93)*V(158)
  A(324) = RCT(324)*V(77)*V(148)
  A(325) = RCT(325)*V(91)*V(149)
  A(326) = RCT(326)*V(91)*V(149)
  A(327) = RCT(327)*V(91)*V(158)
  A(328) = RCT(328)*V(77)*V(145)
  A(329) = RCT(329)*V(84)*V(148)
  A(330) = RCT(330)*V(116)*V(148)
  A(331) = RCT(331)*V(101)*V(147)
  A(332) = RCT(332)*V(101)*V(149)
  A(333) = RCT(333)*V(101)*V(153)
  A(334) = RCT(334)*V(101)*F(1)
  A(335) = RCT(335)*V(101)*F(1)
  A(336) = RCT(336)*V(99)*V(147)
  A(337) = RCT(337)*V(99)*V(149)
  A(338) = RCT(338)*V(99)*V(153)
  A(339) = RCT(339)*V(99)*F(1)
  A(340) = RCT(340)*V(99)*F(1)
  A(341) = RCT(341)*V(86)*V(147)
  A(342) = RCT(342)*V(86)*V(149)
  A(343) = RCT(343)*V(86)*V(153)
  A(344) = RCT(344)*V(86)*F(1)
  A(345) = RCT(345)*V(92)*V(147)
  A(346) = RCT(346)*V(92)*V(149)
  A(347) = RCT(347)*V(92)*V(153)
  A(348) = RCT(348)*V(92)*F(1)
  A(349) = RCT(349)*V(95)*V(147)
  A(350) = RCT(350)*V(95)*V(149)
  A(351) = RCT(351)*V(95)*V(153)
  A(352) = RCT(352)*V(95)*F(1)
  A(353) = RCT(353)*V(95)*F(1)
  A(354) = RCT(354)*V(89)*V(147)
  A(355) = RCT(355)*V(89)*V(149)
  A(356) = RCT(356)*V(89)*V(153)
  A(357) = RCT(357)*V(89)*F(1)
  A(358) = RCT(358)*V(89)*F(1)
  A(359) = RCT(359)*V(90)*V(147)
  A(360) = RCT(360)*V(90)*V(149)
  A(361) = RCT(361)*V(90)*V(153)
  A(362) = RCT(362)*V(90)*F(1)
  A(363) = RCT(363)*V(90)*F(1)
  A(364) = RCT(364)*V(76)*V(148)
  A(365) = RCT(365)*V(68)*V(148)
  A(366) = RCT(366)*V(69)*V(149)
  A(367) = RCT(367)*V(73)*V(149)
  A(368) = RCT(368)*V(69)*V(158)
  A(369) = RCT(369)*V(73)*V(158)
  A(370) = RCT(370)*V(69)
  A(371) = RCT(371)*V(69)
  A(372) = RCT(372)*V(142)
  A(373) = RCT(373)*V(59)
  A(374) = RCT(374)*V(146)
  A(375) = RCT(375)*V(98)
  A(376) = RCT(376)*V(98)
  A(377) = RCT(377)*V(150)
  A(378) = RCT(378)*V(119)
  A(379) = RCT(379)*V(111)
  A(380) = RCT(380)*V(111)
  A(381) = RCT(381)*V(111)
  A(382) = RCT(382)*V(135)
  A(383) = RCT(383)*V(144)
  A(384) = RCT(384)*V(144)
  A(385) = RCT(385)*V(144)
  A(386) = RCT(386)*V(139)
  A(387) = RCT(387)*V(138)
  A(388) = RCT(388)*V(85)
  A(389) = RCT(389)*V(64)
  A(390) = RCT(390)*V(55)
  A(391) = RCT(391)*V(51)
  A(392) = RCT(392)*V(52)
  A(393) = RCT(393)*V(81)
  A(394) = RCT(394)*V(63)
  A(395) = RCT(395)*V(60)
  A(396) = RCT(396)*V(79)
  A(397) = RCT(397)*V(72)
  A(398) = RCT(398)*V(80)
  A(399) = RCT(399)*V(75)
  A(400) = RCT(400)*V(82)
  A(401) = RCT(401)*V(74)
  A(402) = RCT(402)*V(70)
  A(403) = RCT(403)*V(83)
  A(404) = RCT(404)*V(156)
  A(405) = RCT(405)*V(45)
  A(406) = RCT(406)*V(113)
  A(407) = RCT(407)*V(106)
  A(408) = RCT(408)*V(100)
  A(409) = RCT(409)*V(124)
  A(410) = RCT(410)*V(116)
  A(411) = RCT(411)*V(66)
  A(412) = RCT(412)*V(94)
  A(413) = RCT(413)*V(84)
  A(414) = RCT(414)*V(32)
  A(415) = RCT(415)*V(68)
  A(416) = RCT(416)*V(133)
  A(417) = 9.9206e-11*F(2)
  A(418) = 1.1574e-11*F(2)
  A(419) = 3.9684e-12*F(2)
  A(420) = 3.3068e-13*F(2)
  A(421) = RCT(421)*F(2)
  A(422) = RCT(422)*F(2)
  A(423) = RCT(423)*F(2)
  A(424) = RCT(424)*F(2)
  A(425) = 1.1574e-05*V(114)
  A(426) = 1.1574e-05*V(98)
  A(427) = 1.1574e-05*V(104)
  A(428) = 1.1574e-05*V(142)
  A(429) = 1.1574e-05*V(43)
  A(430) = 1.1574e-05*V(125)
  A(431) = 1.1574e-05*V(66)
  A(432) = 1.1574e-05*V(123)
  A(433) = 1.1574e-05*V(30)
  A(434) = 1.1574e-05*V(1)
  A(435) = 1.1574e-05*V(44)
  A(436) = 1.1574e-05*V(31)
  A(437) = 1.1574e-05*V(132)
  A(438) = 1.1574e-05*V(101)
  A(439) = 1.1574e-05*V(89)
  A(440) = 1.1574e-05*V(147)
  A(441) = 1.1574e-05*V(2)
  A(442) = 1.1574e-05*V(3)
  A(443) = 1.1574e-05*V(32)
  A(444) = 1.1574e-05*V(78)
  A(445) = 1.1574e-05*V(69)
  A(446) = 1.1574e-05*V(93)
  A(447) = 1.1574e-05*V(65)
  A(448) = 1.1574e-05*V(84)
  A(449) = 1.1574e-05*V(131)
  A(450) = 1.1574e-05*V(55)
  A(451) = 1.1574e-05*V(90)
  A(452) = 1.1574e-05*V(119)
  A(453) = 1.1574e-05*V(111)
  A(454) = 1.1574e-05*V(62)
  A(455) = 1.1574e-05*V(138)
  A(456) = 1.1574e-05*V(76)
  A(457) = 1.1574e-05*V(136)
  A(458) = 1.1574e-05*V(126)
  A(459) = 1.1574e-05*V(71)
  A(460) = 1.1574e-05*V(38)
  A(461) = 1.1574e-05*V(105)
  A(462) = 1.1574e-05*V(53)
  A(463) = 1.1574e-05*V(158)
  A(464) = 1.1574e-05*V(68)
  A(465) = 1.1574e-05*V(73)
  A(466) = 1.1574e-05*V(75)
  A(467) = 1.1574e-05*V(41)
  A(468) = 1.1574e-05*V(42)
  A(469) = 1.1574e-05*V(37)
  A(470) = 1.1574e-05*V(108)
  A(471) = 1.1574e-05*V(4)
  A(472) = 1.1574e-05*V(46)
  A(473) = 1.1574e-05*V(140)
  A(474) = 1.1574e-05*V(85)
  A(475) = 1.1574e-05*V(94)
  A(476) = 1.1574e-05*V(133)
  A(477) = 1.1574e-05*V(5)
  A(478) = 1.1574e-05*V(120)
  A(479) = 1.1574e-05*V(110)
  A(480) = 1.1574e-05*V(107)
  A(481) = 1.1574e-05*V(82)
  A(482) = 1.1574e-05*V(102)
  A(483) = 1.1574e-05*V(100)
  A(484) = 1.1574e-05*V(118)
  A(485) = 1.1574e-05*V(124)
  A(486) = 1.1574e-05*V(115)
  A(487) = 1.1574e-05*V(130)
  A(488) = 1.1574e-05*V(6)
  A(489) = 1.1574e-05*V(139)
  A(490) = 1.1574e-05*V(113)
  A(491) = 1.1574e-05*V(97)
  A(492) = 1.1574e-05*V(99)
  A(493) = 1.1574e-05*V(117)
  A(494) = 1.1574e-05*V(83)
  A(495) = 1.1574e-05*V(121)
  A(496) = 1.1574e-05*V(45)
  A(497) = 1.1574e-05*V(7)
  A(498) = 1.1574e-05*V(8)
  A(499) = 1.1574e-05*V(155)
  A(500) = 1.1574e-05*V(150)
  A(501) = 1.1574e-05*V(95)
  A(502) = 1.1574e-05*V(135)
  A(503) = 1.1574e-05*V(92)
  A(504) = 1.1574e-05*V(77)
  A(505) = 1.1574e-05*V(91)
  A(506) = 1.1574e-05*V(151)
  A(507) = 1.1574e-05*V(50)
  A(508) = 1.1574e-05*V(47)
  A(509) = 1.1574e-05*V(134)
  A(510) = 1.1574e-05*V(70)
  A(511) = 1.1574e-05*V(144)
  A(512) = 1.1574e-05*V(106)
  A(513) = 1.1574e-05*V(86)
  A(514) = 1.1574e-05*V(33)
  A(515) = 1.1574e-05*V(128)
  A(516) = 1.1574e-05*V(149)
  A(517) = 1.1574e-05*V(153)
  A(518) = 1.1574e-05*V(154)
  A(519) = 1.1574e-05*V(87)
  A(520) = 1.1574e-05*V(28)
  A(521) = 1.1574e-05*V(145)
  A(522) = 1.1574e-05*V(148)
  A(523) = 1.1574e-05*V(59)
  A(524) = 1.1574e-05*V(34)
  A(525) = 1.1574e-05*V(9)
  A(526) = 1.1574e-05*V(127)
  A(527) = 1.1574e-05*V(63)
  A(528) = 1.1574e-05*V(35)
  A(529) = 1.1574e-05*V(129)
  A(530) = 1.1574e-05*V(103)
  A(531) = 1.1574e-05*V(64)
  A(532) = 1.1574e-05*V(116)
  A(533) = 1.1574e-05*V(10)
  A(534) = 1.1574e-05*V(143)
  A(535) = 1.1574e-05*V(156)
  A(536) = 1.1574e-05*V(141)
  A(537) = 1.1574e-05*V(81)
  A(538) = 1.1574e-05*V(51)
  A(539) = 1.1574e-05*V(52)
  A(540) = 1.1574e-05*V(146)
  A(541) = 1.1574e-05*V(152)
  A(542) = 1.1574e-05*V(137)
  A(543) = 1.1574e-05*V(79)
  A(544) = 1.1574e-05*V(72)
  A(545) = 1.1574e-05*V(80)
  A(546) = 1.1574e-05*V(96)
  A(547) = 1.1574e-05*V(60)
  A(548) = 1.1574e-05*V(36)
  A(549) = 1.1574e-05*V(122)
  A(550) = 1.1574e-05*V(74)
  A(551) = 1.1574e-05*V(48)
  A(552) = 1.1574e-05*V(39)
  A(553) = 1.1574e-05*V(11)
  A(554) = 1.1574e-05*V(56)
  A(555) = 1.1574e-05*V(12)
  A(556) = 1.1574e-05*V(109)
  A(557) = 1.1574e-05*V(61)
  A(558) = 1.1574e-05*V(13)
  A(559) = 1.1574e-05*V(57)
  A(560) = 1.1574e-05*V(67)
  A(561) = 1.1574e-05*V(58)
  A(562) = 1.1574e-05*V(29)
  A(563) = 1.1574e-05*V(40)
  A(564) = 1.1574e-05*V(112)
  A(565) = 1.1574e-05*V(157)
  A(566) = 1.1574e-05*V(54)
  A(567) = 1.1574e-05*V(49)
  A(568) = 1.1574e-05*V(88)

! Aggregate function
  Vdot(1) = -A(434)
  Vdot(2) = A(54)+A(74)+A(83)+A(105)+A(110)+A(150)+A(159)+0.361*A(207)+0.5*A(218)+1.172*A(252)+0.858*A(253)+A(257)+2&
              &*A(260)+0.7*A(262)+2*A(263)+A(264)+A(265)+A(276)+A(282)+0.36*A(301)+0.63*A(302)+0.93*A(316)+0.93*A(317)&
              &+A(325)+0.5*A(327)+A(328)+A(329)+0.085*A(365)+0.4*A(412)-A(441)
  Vdot(3) = 0.27*A(309)+0.21*A(311)-A(442)
  Vdot(4) = 0.781*A(204)-A(206)-A(471)
  Vdot(5) = 0.04*A(133)+0.04*A(134)+0.04*A(135)+0.04*A(136)+0.04*A(137)+0.04*A(138)+0.04*A(139)+0.04*A(140)+0.04*A(143)&
              &+0.04*A(144)+0.04*A(145)-A(477)
  Vdot(6) = 0.007*A(242)+0.007*A(243)+0.007*A(244)+0.007*A(245)+0.007*A(247)-A(248)+0.005*A(396)+0.005*A(397)+0.005&
              &*A(398)-A(488)
  Vdot(7) = -A(497)
  Vdot(8) = -A(498)
  Vdot(9) = -A(525)
  Vdot(10) = 0.35*A(314)-A(533)
  Vdot(11) = -A(553)
  Vdot(12) = -A(555)
  Vdot(13) = A(100)+0.25*A(136)+0.15*A(199)+A(231)+A(232)+A(368)+A(369)+A(370)-A(558)
  Vdot(14) = A(84)
  Vdot(15) = A(85)
  Vdot(16) = A(214)
  Vdot(17) = A(226)
  Vdot(18) = A(86)
  Vdot(19) = A(87)
  Vdot(20) = A(88)
  Vdot(21) = A(89)
  Vdot(22) = A(80)
  Vdot(23) = A(81)
  Vdot(24) = A(82)
  Vdot(25) = 0.252*A(80)+0.26*A(81)+0.268*A(82)+0.134*A(207)
  Vdot(26) = A(51)+A(56)+A(57)+1.92*A(80)+1.92*A(81)+1.92*A(82)+A(437)
  Vdot(27) = 0.215*A(81)+0.463*A(82)+0.5*A(95)+A(104)+0.5*A(180)+A(217)+A(286)+A(330)
  Vdot(28) = -A(6)-A(13)+A(29)-A(520)
  Vdot(29) = -A(60)+A(417)-A(562)
  Vdot(30) = -A(80)+A(422)-A(433)
  Vdot(31) = -A(113)-A(114)-A(436)
  Vdot(32) = A(371)-A(414)-A(443)
  Vdot(33) = A(12)-A(38)-A(40)-A(514)
  Vdot(34) = A(318)-A(319)-A(524)
  Vdot(35) = A(152)-A(153)-A(528)
  Vdot(36) = -A(81)+A(423)-A(548)
  Vdot(37) = 0.5*A(247)-A(251)+0.1*A(307)-A(469)
  Vdot(38) = A(20)-A(27)-A(35)-A(460)
  Vdot(39) = -A(42)+0.1*A(202)-A(552)
  Vdot(40) = A(71)+A(72)-A(74)+A(76)+A(77)+A(418)-A(563)
  Vdot(41) = 0.578*A(245)+0.68*A(246)-A(249)+0.067*A(308)-A(467)
  Vdot(42) = 0.272*A(245)+0.32*A(246)-A(250)+0.033*A(308)-A(468)
  Vdot(43) = -A(117)-A(148)-A(429)
  Vdot(44) = -A(111)-A(268)-A(435)
  Vdot(45) = 0.41*A(198)-A(267)-A(405)-A(496)
  Vdot(46) = -A(154)+A(156)+0.53*A(216)+0.5*A(228)+0.6*A(412)-A(472)
  Vdot(47) = A(47)-A(48)-A(58)-A(59)-A(508)
  Vdot(48) = -A(82)-A(83)+A(424)-A(551)
  Vdot(49) = A(67)-A(68)-A(78)-A(79)-A(567)
  Vdot(50) = A(44)-A(49)-A(50)-A(55)-A(507)
  Vdot(51) = A(196)-A(237)-A(391)-A(538)
  Vdot(52) = A(172)-A(238)-A(392)-A(539)
  Vdot(53) = A(24)-A(25)-A(39)-A(41)-A(462)
  Vdot(54) = A(62)-A(69)-A(70)-A(75)-A(566)
  Vdot(55) = A(195)-A(236)-A(390)-A(450)
  Vdot(56) = -A(15)+A(57)+A(77)+0.09*A(184)+A(380)+0.19*A(399)-A(554)
  Vdot(57) = A(80)-A(84)-A(85)-A(559)
  Vdot(58) = A(81)-A(86)-A(87)-A(561)
  Vdot(59) = A(108)-A(109)+0.19*A(204)-A(373)-A(523)
  Vdot(60) = 0.75*A(136)+0.41*A(199)-A(240)-A(395)-A(547)
  Vdot(61) = -A(1)-A(2)-A(3)-A(4)-A(5)+A(6)+A(30)+A(32)+A(34)-A(557)
  Vdot(62) = -A(16)+A(19)-A(31)+A(334)+A(340)+A(344)+A(348)+A(353)+A(357)+A(362)-A(454)
  Vdot(63) = A(197)-A(241)-A(394)-A(527)
  Vdot(64) = A(174)-A(235)-A(389)-A(531)
  Vdot(65) = 0.25*A(92)+0.25*A(176)-A(191)+A(194)+0.09*A(302)-A(447)
  Vdot(66) = -A(103)-A(104)+0.85*A(166)+0.85*A(167)-A(411)-A(431)
  Vdot(67) = A(82)-A(88)-A(89)-A(560)
  Vdot(68) = 0.5*A(124)-A(365)-A(415)-A(464)
  Vdot(69) = 0.5*A(124)-A(366)-A(368)-A(370)-A(371)-A(445)
  Vdot(70) = A(170)-A(256)-A(257)+A(339)-A(402)-A(510)
  Vdot(71) = -A(105)+0.134*A(207)+A(208)+0.5*A(218)+0.278*A(252)+0.142*A(253)+0.16*A(301)+0.057*A(309)+0.65*A(314)+0.07&
               &*A(316)+0.07*A(317)+A(335)-A(459)
  Vdot(72) = 0.272*A(168)-A(243)-A(246)-A(397)-A(544)
  Vdot(73) = 0.365*A(365)-A(367)-A(369)-A(465)
  Vdot(74) = 0.1*A(169)-A(255)-A(401)-A(550)
  Vdot(75) = -A(254)+0.1*A(306)-A(399)-A(466)
  Vdot(76) = 0.44*A(252)+0.473*A(253)-A(364)-A(456)
  Vdot(77) = 0.17*A(277)+0.17*A(304)-A(324)-A(328)-A(504)
  Vdot(78) = 0.654*A(254)+0.29*A(277)+0.29*A(304)-A(320)-A(444)
  Vdot(79) = 0.628*A(168)-A(242)-A(245)-A(396)-A(543)
  Vdot(80) = 0.037*A(168)-A(244)-A(247)-A(398)-A(545)
  Vdot(81) = A(84)+A(86)+A(88)+A(164)-A(239)+0.85*A(323)+0.5*A(327)-A(393)-A(537)
  Vdot(82) = 0.5*A(310)+0.51*A(312)-A(313)-A(400)-A(481)
  Vdot(83) = 0.85*A(171)+0.41*A(200)+0.5*A(228)-A(258)-A(259)-A(403)-A(494)
  Vdot(84) = 0.26*A(302)+0.21*A(309)+0.2*A(310)-A(329)-A(413)-A(448)
  Vdot(85) = 0.96*A(139)+0.96*A(144)+A(173)-A(233)-A(234)-A(388)-A(474)
  Vdot(86) = 0.044*A(223)-A(341)-A(342)-A(343)-A(344)-A(513)
  Vdot(87) = A(155)-A(157)-A(203)-A(205)-A(519)
  Vdot(88) = A(63)+0.5*A(65)-A(73)+0.25*A(90)+0.25*A(91)+0.25*A(92)+0.25*A(93)+0.25*A(94)+0.5*A(95)+0.25*A(96)+0.25&
               &*A(97)+0.25*A(98)-A(568)
  Vdot(89) = 0.12*A(202)-A(354)-A(355)-A(356)-A(357)-A(358)-A(439)
  Vdot(90) = 0.055*A(269)-A(359)-A(360)-A(361)-A(362)-A(363)-A(451)
  Vdot(91) = A(324)-A(325)-A(326)-A(327)-A(505)
  Vdot(92) = 0.022*A(225)+0.055*A(269)-A(345)-A(346)-A(347)-A(348)-A(503)
  Vdot(93) = 0.03*A(123)+0.09*A(183)+0.113*A(276)-A(321)-A(322)-A(323)-A(446)
  Vdot(94) = 0.96*A(135)+A(154)-A(156)-A(204)-A(412)-A(475)
  Vdot(95) = 0.12*A(224)-A(349)-A(350)-A(351)-A(352)-A(353)-A(501)
  Vdot(96) = 0.25*A(90)+0.25*A(91)+0.25*A(93)+0.25*A(94)+0.25*A(96)+0.25*A(97)+0.25*A(98)+0.25*A(162)+0.25*A(163)+0.25&
               &*A(178)+0.25*A(179)+0.25*A(181)+0.24*A(182)+0.25*A(184)+0.25*A(185)+0.15*A(186)+0.25*A(188)+0.25*A(190)&
               &-A(192)+0.3*A(262)-A(546)
  Vdot(97) = A(315)-A(316)-A(317)-A(318)+A(319)-A(491)
  Vdot(98) = 0.16*A(93)+0.75*A(97)+0.32*A(118)+A(129)-A(161)+0.16*A(178)+0.75*A(188)+0.791*A(238)+0.32*A(273)+A(280)&
               &+A(296)-A(375)-A(376)+A(392)+0.32*A(404)-A(426)
  Vdot(99) = 0.044*A(223)-A(336)-A(337)-A(338)-A(339)-A(340)-A(492)
  Vdot(100) = 0.081*A(123)-A(301)-A(308)-A(408)-A(483)
  Vdot(101) = 0.12*A(202)+0.11*A(223)+0.12*A(224)+0.326*A(225)-A(331)-A(332)-A(333)-A(334)-A(335)-A(438)
  Vdot(102) = -A(214)-A(223)-A(226)-A(482)
  Vdot(103) = -A(201)-A(202)-A(209)+0.102*A(223)+A(383)-A(530)
  Vdot(104) = A(102)-A(150)+0.15*A(198)+0.5*A(218)+A(221)+A(222)+A(261)+A(272)+A(285)+A(286)+A(287)+A(288)+A(289)+A(290)&
                &+A(291)+A(292)+A(293)+A(294)+A(295)+A(296)+A(298)+0.08*A(316)+0.08*A(317)+A(358)-A(427)
  Vdot(105) = A(21)-A(28)-A(36)+A(52)+A(72)+A(107)+0.6*A(132)+A(148)+A(160)+A(177)+A(212)+A(213)+0.5*A(228)+A(266)&
                &+A(268)+0.41*A(301)+0.3*A(302)+A(305)+A(322)+A(326)-A(461)
  Vdot(106) = 0.12*A(125)+0.21*A(301)+0.075*A(309)+0.06*A(310)+0.26*A(311)+0.16*A(312)-A(314)-A(407)-A(512)
  Vdot(107) = 0.655*A(142)-A(143)-A(144)-A(145)-A(480)
  Vdot(108) = A(249)+A(250)+A(251)-A(252)-A(253)-A(470)
  Vdot(109) = A(45)-A(53)+0.5*A(65)+0.25*A(140)+0.25*A(141)+0.25*A(145)+0.25*A(162)+0.25*A(163)+0.25*A(176)+0.25*A(178)&
                &+0.25*A(179)+0.5*A(180)+0.25*A(181)+0.24*A(182)+0.25*A(184)+0.25*A(185)+0.25*A(188)+0.25*A(189)+0.25*A(190)&
                &+0.24*A(302)+0.1*A(378)-A(556)
  Vdot(110) = 0.4*A(132)-A(137)-A(138)-A(139)-A(140)-A(479)
  Vdot(111) = 0.252*A(80)+0.26*A(81)+0.268*A(82)+A(137)+0.94*A(138)+0.7*A(140)+0.7*A(141)+0.919*A(143)+0.7*A(145)+0.134&
                &*A(207)-A(210)-A(212)+0.085*A(252)+0.088*A(253)+0.216*A(277)+0.06*A(302)+0.216*A(304)+0.48*A(321)+0.072&
                &*A(323)+0.085*A(365)+A(366)+A(367)-A(379)-A(380)-A(381)+A(414)+0.25*A(416)-A(453)
  Vdot(112) = A(61)+A(63)+2*A(64)+0.5*A(65)+A(66)+A(70)-A(71)-A(72)+A(73)+A(75)-A(76)-A(77)+A(78)+0.75*A(90)+0.75*A(91)&
                &+0.75*A(92)+0.75*A(93)+0.75*A(94)+0.5*A(95)+0.75*A(96)+0.75*A(97)+0.75*A(98)+A(99)+A(100)+A(101)+A(102)&
                &+A(420)-A(564)
  Vdot(113) = 0.15*A(126)+0.32*A(301)+0.019*A(309)+0.01*A(310)+0.44*A(311)+0.28*A(312)-A(315)-A(406)-A(490)
  Vdot(114) = -A(90)+0.03*A(93)+A(114)-A(115)+0.05*A(118)-A(162)+0.03*A(178)-A(196)-A(219)-A(221)+0.36*A(237)+0.05&
                &*A(273)+0.05*A(404)-A(425)
  Vdot(115) = 0.9*A(307)-0.943*A(309)-A(310)+0.193*A(313)-A(486)
  Vdot(116) = 0.5*A(128)+0.96*A(133)+0.96*A(134)+0.94*A(137)+0.9*A(138)+0.66*A(140)+0.3*A(141)+0.894*A(143)+0.66*A(145)&
                &+0.075*A(171)+0.375*A(187)+0.791*A(235)+0.5*A(282)+0.42*A(301)+0.38*A(302)+0.3*A(309)+0.23*A(310)-A(330)&
                &-A(410)-A(532)
  Vdot(117) = -A(128)-A(171)-A(187)+A(227)-A(282)-A(293)-A(493)
  Vdot(118) = 0.9*A(308)-A(311)-A(312)+0.193*A(313)-A(484)
  Vdot(119) = 0.53*A(125)+0.578*A(169)+0.13*A(184)+0.36*A(185)-A(207)-A(208)+0.025*A(252)+0.088*A(253)+0.5*A(269)+0.234&
                &*A(277)+0.6*A(278)+0.24*A(302)+0.234*A(304)+0.9*A(306)+0.3*A(309)+0.23*A(310)+0.09*A(311)+0.06*A(312)+0.52&
                &*A(321)+0.078*A(323)+A(359)+A(360)+A(361)+A(362)-A(378)+0.26*A(399)+0.7*A(401)+A(407)+0.11*A(415)+0.5&
                &*A(416)-A(452)
  Vdot(120) = 0.6*A(132)-A(133)-A(134)-A(135)-A(136)+0.345*A(142)-A(478)
  Vdot(121) = A(259)-A(260)-A(261)-A(262)-2*A(263)-A(264)-A(265)-A(266)-A(495)
  Vdot(122) = -A(125)-A(169)-A(185)+A(215)+0.054*A(223)+0.209*A(255)-A(278)-A(290)-A(549)
  Vdot(123) = 0.09*A(93)-A(97)+A(113)+0.18*A(118)-A(129)-A(172)+0.09*A(178)-A(188)+0.209*A(238)+0.18*A(273)-A(280)&
                &-A(296)+0.18*A(404)-A(432)
  Vdot(124) = 0.009*A(123)+0.5*A(146)+0.25*A(189)-A(302)-A(307)-A(409)-A(485)
  Vdot(125) = -A(95)+A(103)-A(121)+A(161)-A(166)-A(180)-A(274)-A(286)-A(430)
  Vdot(126) = -A(184)+0.143*A(245)+0.493*A(247)+0.346*A(254)-A(277)-A(289)+A(303)-A(304)-A(305)-A(306)-A(458)
  Vdot(127) = -A(91)-A(116)-A(163)-A(197)+A(201)-A(220)-A(222)+0.209*A(241)-A(526)
  Vdot(128) = -A(155)+A(157)-A(159)-A(200)-A(230)-A(232)+A(258)-A(300)-A(515)
  Vdot(129) = -A(98)-A(147)-A(174)-A(190)+A(209)+0.209*A(235)-A(284)-A(295)-A(529)
  Vdot(130) = -A(96)-A(122)-A(167)+A(175)+A(177)-A(181)-A(275)-A(287)-A(487)
  Vdot(131) = -A(92)+0.16*A(93)+A(99)+A(111)-A(112)+0.32*A(118)+A(158)-A(176)+0.16*A(178)-2*A(193)-2*A(194)-A(195)+0.44&
                &*A(199)+A(229)+0.36*A(236)+A(268)+0.32*A(273)-A(297)-A(298)+A(299)+A(374)+0.85*A(377)+0.32*A(404)-A(449)
  Vdot(132) = A(43)+A(45)+2*A(46)+A(50)-A(51)-A(52)+A(53)+A(55)-A(56)-A(57)+A(58)+0.5*A(65)+A(66)+1.92*A(80)+1.92*A(81)&
                &+1.92*A(82)+0.5*A(91)+0.2*A(94)+0.5*A(98)+0.05*A(106)+A(116)+0.57*A(120)+A(121)+0.82*A(123)+0.35*A(125)&
                &+0.122*A(126)+0.5*A(128)+0.07*A(130)+0.07*A(131)+0.75*A(140)+0.75*A(141)+0.75*A(145)+0.07*A(146)+A(147)+0.5&
                &*A(159)+0.75*A(162)+1.25*A(163)+0.15*A(166)+0.063*A(168)+0.102*A(169)+0.075*A(171)+0.75*A(176)+0.75*A(178)&
                &+0.95*A(179)+0.5*A(180)+0.75*A(181)+1.22*A(182)+0.75*A(183)+0.95*A(184)+0.89*A(185)+1.255*A(186)+0.625&
                &*A(187)+0.75*A(188)+0.785*A(189)+1.25*A(190)+0.59*A(200)+0.5*A(202)+0.19*A(204)+A(205)+0.732*A(207)+A(220)&
                &+0.456*A(223)+0.6*A(224)+0.12*A(225)+A(229)+2*A(230)+A(231)+A(232)+0.375*A(252)+0.375*A(253)+A(262)+0.445&
                &*A(269)+A(271)+A(272)+A(274)+0.747*A(276)+0.4*A(278)+0.143*A(279)+0.39*A(281)+0.5*A(282)+0.07*A(283)+A(284)&
                &+A(300)+0.62*A(301)+0.2*A(302)+0.15*A(309)+0.07*A(310)+0.7*A(311)+0.44*A(312)+0.35*A(314)+0.08*A(316)+0.08&
                &*A(317)+A(329)+A(331)+A(332)+A(333)+A(334)+A(364)+0.55*A(365)+0.9*A(378)+A(381)+A(384)+A(386)+A(387)+A(394)&
                &+0.71*A(396)+0.71*A(397)+0.71*A(398)+0.3*A(401)+0.5*A(402)+A(403)+0.5*A(406)+A(410)+A(411)+0.4*A(412)&
                &+A(413)+A(416)-A(437)
  Vdot(133) = 0.7*A(130)+0.7*A(131)-A(132)-A(141)-A(142)+1.2*A(146)+0.6*A(189)+0.7*A(283)-A(416)-A(476)
  Vdot(134) = -A(126)-A(127)-A(170)-A(186)+0.47*A(216)+0.5*A(228)+A(256)-A(279)-A(291)-A(509)
  Vdot(135) = 0.215*A(81)+0.463*A(82)+0.5*A(95)+A(104)+0.35*A(125)+0.122*A(126)+0.5*A(128)+0.102*A(169)+0.075*A(171)+0.5&
                &*A(180)+0.29*A(184)+0.14*A(185)+0.255*A(186)+0.375*A(187)-A(211)-A(213)+A(217)+0.5*A(224)+0.88*A(225)+0.085&
                &*A(252)+0.088*A(253)+0.5*A(269)+0.234*A(277)+0.4*A(278)+0.143*A(279)+0.5*A(282)+A(286)+0.234*A(304)+0.9&
                &*A(306)+0.65*A(314)+0.07*A(316)+0.07*A(317)+0.52*A(321)+0.078*A(323)+A(330)+A(345)+A(346)+A(347)+A(348)&
                &+A(349)+A(350)+A(351)+A(353)+0.5*A(364)+0.55*A(365)+A(366)+A(367)-A(382)+0.58*A(399)+0.3*A(401)+A(406)&
                &+A(414)+0.5*A(415)+0.25*A(416)-A(502)
  Vdot(136) = 0.058*A(123)+0.23*A(130)+0.23*A(131)+0.23*A(146)+0.3*A(182)+1.11*A(183)+0.115*A(189)+0.243*A(242)+0.513&
                &*A(243)+0.743*A(244)-A(269)+0.14*A(276)+0.23*A(283)-A(303)+0.275*A(396)+0.275*A(397)+0.275*A(398)+A(408)&
                &+A(409)-A(457)
  Vdot(137) = -A(123)-A(124)-A(168)-A(182)-2*A(183)+A(214)+0.75*A(242)+0.48*A(243)+0.25*A(244)-A(276)-A(288)-A(542)
  Vdot(138) = 0.16*A(91)+0.2*A(95)+0.728*A(126)+A(127)+0.16*A(163)+0.2*A(180)+0.18*A(184)+0.595*A(186)+A(203)+0.03&
                &*A(204)-A(217)-A(218)+0.65*A(222)+0.791*A(241)+0.085*A(252)+0.117*A(253)+A(257)+A(260)+0.7*A(262)+2*A(263)&
                &+A(264)+A(265)+0.216*A(277)+0.857*A(279)+0.42*A(302)+0.216*A(304)+0.27*A(309)+0.2*A(310)+0.09*A(311)+0.06&
                &*A(312)+0.85*A(316)+0.85*A(317)+0.5*A(320)+0.48*A(321)+0.072*A(323)+A(363)-A(387)+0.36*A(399)+A(402)+A(406)&
                &+0.39*A(415)+0.5*A(416)-A(455)
  Vdot(139) = 0.344*A(123)+0.035*A(130)+0.035*A(131)+0.035*A(146)+0.025*A(168)+0.18*A(182)+0.29*A(183)+0.018*A(189)&
                &-A(216)+0.3*A(223)-A(225)-A(227)-A(228)+0.294*A(276)+0.035*A(283)+A(336)+A(337)+A(338)+A(340)-A(386)+0.285&
                &*A(396)+0.285*A(397)+0.285*A(398)-A(489)
  Vdot(140) = -A(130)-A(131)-2*A(146)-A(173)-A(189)+A(226)+0.36*A(234)-A(283)-A(294)-A(473)
  Vdot(141) = -A(93)+0.15*A(94)+A(117)-A(118)-A(119)+A(148)-A(164)-A(178)+0.15*A(179)+0.209*A(239)-A(273)+0.3*A(281)&
                &-A(285)-A(536)
  Vdot(142) = 0.5*A(91)+0.75*A(92)+0.16*A(93)+0.38*A(94)+0.5*A(96)+0.5*A(98)-A(106)-A(107)+A(112)+A(116)+0.32*A(118)&
                &+0.86*A(120)+0.93*A(122)+A(147)+0.5*A(163)+0.15*A(167)+0.75*A(176)+0.16*A(178)+0.38*A(179)+0.5*A(181)+0.5&
                &*A(190)+A(191)+2*A(193)+A(194)+0.5*A(202)+A(220)+0.1*A(224)+0.64*A(236)+0.32*A(273)+A(275)+0.75*A(281)&
                &+A(284)+A(297)+A(298)+A(354)+A(355)+A(356)+A(357)-A(372)+A(390)+A(394)+A(395)+0.32*A(404)-A(428)
  Vdot(143) = -A(94)-A(120)+A(149)-A(165)-A(179)-A(281)-A(292)+0.612*A(313)-A(534)
  Vdot(144) = 0.476*A(123)+0.035*A(130)+0.035*A(131)+0.035*A(146)+0.038*A(168)+0.28*A(182)+0.45*A(183)+0.018*A(189)&
                &-A(215)+0.2*A(223)-A(224)+0.453*A(276)+0.035*A(283)+A(341)+A(342)+A(343)+A(344)-A(383)-A(384)-A(385)+0.425&
                &*A(396)+0.425*A(397)+0.425*A(398)-A(511)
  Vdot(145) = A(1)-A(2)-A(7)-A(8)-A(14)-A(17)-A(29)-A(30)+0.25*A(136)-A(141)+0.15*A(198)+0.15*A(199)+0.15*A(200)-A(202)&
                &-A(205)-A(223)-A(224)-A(225)-A(269)-A(301)-A(302)-A(328)+A(419)-A(521)
  Vdot(146) = A(85)+A(87)+A(89)+0.75*A(90)+0.09*A(91)+0.07*A(93)+0.54*A(94)+0.25*A(98)+A(115)+0.14*A(118)+0.57*A(120)&
                &-A(151)-A(160)+0.75*A(162)+0.09*A(163)+0.033*A(169)+0.07*A(178)+0.54*A(179)+0.25*A(190)+A(192)+A(219)&
                &+A(221)+0.35*A(222)+0.64*A(237)+0.791*A(239)+0.13*A(273)+0.09*A(277)+0.57*A(281)+A(292)+A(293)+A(294)&
                &+A(295)+0.09*A(304)+A(325)+0.5*A(327)-A(374)+A(388)+A(389)+A(391)+A(393)+A(400)+0.13*A(404)-A(540)
  Vdot(147) = A(51)+A(52)-A(54)+A(56)+A(57)+0.05*A(106)+0.728*A(126)+A(127)+0.5*A(128)+A(133)+A(134)+0.5*A(159)+0.075&
                &*A(171)+0.29*A(183)+0.33*A(184)+0.595*A(186)+0.375*A(187)+0.39*A(200)+0.56*A(202)+A(203)+0.03*A(204)+0.505&
                &*A(207)+A(208)+2*A(210)+A(211)+2*A(212)+A(213)+0.5*A(218)+0.495*A(223)+0.56*A(224)+0.625*A(225)+0.5*A(228)&
                &+0.6*A(252)+0.678*A(253)+0.89*A(269)+0.09*A(277)+0.857*A(279)+0.5*A(282)+0.21*A(301)+0.09*A(304)+1.5*A(320)&
                &-A(331)-A(336)-A(341)-A(345)-A(349)-A(354)-A(359)+0.5*A(364)+0.55*A(365)+A(370)+0.88*A(372)+A(374)+A(376)&
                &+A(378)+2*A(379)+2*A(380)+A(381)+A(382)+A(383)+A(384)+A(386)+0.67*A(399)+0.5*A(402)+0.5*A(406)+A(410)&
                &+A(413)+1.89*A(415)-A(440)
  Vdot(148) = 2*A(13)-A(14)-A(15)-A(16)+A(17)-A(18)-A(20)-A(21)-A(22)+A(23)-A(25)+A(26)-A(27)-A(28)+2*A(31)+A(35)+A(36)&
                &+0.05*A(39)-A(42)-A(49)-A(51)-A(53)-A(54)+A(55)-A(60)-A(69)-A(71)-A(73)-A(74)+A(75)-A(103)-A(105)-A(106)&
                &-A(111)-A(113)-A(114)-A(117)+A(127)+0.5*A(128)-A(142)-A(149)-A(150)-A(151)-A(161)+0.15*A(166)+0.15*A(167)&
                &+0.063*A(168)+0.68*A(169)+0.15*A(171)-A(175)-A(191)-A(192)+0.44*A(198)+0.44*A(199)+0.44*A(200)-A(201)+0.36&
                &*A(202)-A(203)-A(204)-0.773*A(207)-A(210)-A(211)-A(214)-A(215)-A(216)-A(217)+0.243*A(223)+0.36*A(224)+0.239&
                &*A(225)-0.36*A(234)-0.209*A(235)-0.36*A(236)-0.36*A(237)-0.209*A(238)-0.209*A(239)-A(240)-0.209*A(241)&
                &-0.875*A(242)-0.74*A(243)-0.625*A(244)-0.15*A(245)-0.5*A(247)-A(249)-A(250)-A(251)+1.125*A(252)+0.125&
                &*A(253)-0.346*A(254)-0.209*A(255)-A(256)-A(258)-A(259)+A(260)+0.7*A(262)+2*A(263)+2*A(264)+A(265)-A(267)&
                &+0.89*A(269)+0.05*A(301)+0.37*A(302)-A(303)+0.9*A(306)-A(307)-A(308)+0.5*A(310)+0.5*A(312)-0.388*A(313)&
                &-A(314)-A(315)+A(317)-A(320)+0.15*A(323)-A(324)+0.5*A(327)+A(328)-A(329)-A(330)-A(364)-0.365*A(365)+A(366)&
                &+A(367)+A(370)+0.07*A(378)+A(388)+A(389)+A(390)+A(391)+A(392)+A(393)+A(394)+A(395)+0.985*A(396)+0.985&
                &*A(397)+0.985*A(398)+A(399)+A(400)+A(401)+A(402)+A(403)+A(405)+A(411)+2*A(414)+2*A(415)-A(522)
  Vdot(149) = -A(3)+A(4)-A(7)-2*A(9)-A(10)+A(11)-A(20)-A(23)+A(32)+A(33)+A(35)-A(43)-A(61)-A(85)-A(87)-A(89)-A(110)&
                &-A(112)-A(115)-A(116)-A(118)-A(119)-A(120)-A(121)-A(122)-A(123)-A(125)-A(126)-A(128)-A(129)-A(130)-A(134)&
                &-A(138)-A(143)-A(147)-A(158)-A(159)-A(253)-A(265)-A(266)-A(304)-A(305)-A(309)-A(311)-A(316)-A(321)-A(322)&
                &-A(325)-A(326)-A(332)-A(337)-A(342)-A(346)-A(350)-A(355)-A(360)-A(366)-A(367)+A(421)-A(516)
  Vdot(150) = 0.35*A(93)+0.25*A(96)+0.19*A(118)+0.187*A(169)-A(175)-A(177)+0.35*A(178)+0.25*A(181)+0.25*A(184)+0.25&
                &*A(185)+A(233)+0.791*A(255)+A(261)+0.19*A(273)+A(285)+A(287)+A(288)+A(289)+A(290)+A(291)+0.5*A(320)+A(328)&
                &-A(377)+0.19*A(404)-A(500)
  Vdot(151) = A(42)-A(43)-A(44)-2*A(45)-2*A(46)-A(47)+A(48)+A(49)+A(59)-A(65)-A(66)+0.09*A(93)+A(101)+A(110)+0.19*A(118)&
                &-A(140)-A(145)+A(150)+0.5*A(159)-A(162)-A(163)-A(176)-0.91*A(178)-A(179)-A(180)-A(181)-A(182)-A(184)-A(185)&
                &-A(186)-A(187)-A(188)-A(189)-A(190)+0.44*A(198)+0.39*A(200)+0.28*A(202)+0.5*A(218)+A(219)+A(220)+0.051&
                &*A(223)-A(229)-A(230)-A(231)-A(232)+A(260)-A(262)+2*A(270)-A(272)+A(273)+A(274)+A(275)+A(276)+A(277)+A(278)&
                &+A(279)+A(280)+A(281)+A(282)+A(283)+A(284)+A(297)+A(299)+A(300)+A(352)+0.88*A(372)+0.3*A(373)+A(375)+2&
                &*A(376)+0.15*A(377)+A(385)+0.18*A(404)+A(405)+A(410)-A(506)
  Vdot(152) = -A(99)-A(100)+A(151)-A(152)+A(153)-A(158)+A(160)-A(199)-A(229)-A(231)+A(240)-A(299)+0.15*A(377)+A(385)&
                &-A(541)
  Vdot(153) = A(3)-A(4)-A(5)+A(7)-A(8)+2*A(9)+2*A(10)-A(12)-A(21)+A(22)+A(23)-A(24)+A(25)+A(26)+A(27)-A(32)+A(34)+A(36)&
                &+2*A(37)+A(38)+0.95*A(39)+A(40)+A(41)+A(43)-A(47)+A(48)+A(59)+A(61)-A(67)+A(68)+A(79)+A(85)+A(87)+A(89)&
                &+A(94)+A(98)-A(108)+A(109)+A(110)+A(112)+A(115)+A(116)+A(118)+2*A(120)+A(121)+0.93*A(122)+0.91*A(123)+0.88&
                &*A(125)+0.85*A(126)+1.5*A(128)+A(129)+1.3*A(130)+1.3*A(131)+A(133)+A(134)-A(135)+0.96*A(136)+2*A(137)+1.88&
                &*A(138)+0.7*A(140)+0.7*A(141)+0.3*A(146)+2*A(147)-A(152)+A(153)-A(154)-A(155)+A(156)+A(157)+A(158)+A(159)&
                &+0.925*A(171)+A(179)+0.375*A(187)+0.15*A(189)+A(190)+A(203)+A(233)+A(253)+A(265)+A(281)+0.5*A(282)+0.3&
                &*A(283)+A(284)+A(292)+A(293)+A(294)+A(295)+0.06*A(302)+A(304)+0.1*A(307)+0.1*A(308)+0.79*A(309)+0.88*A(311)&
                &+0.06*A(312)+1.85*A(316)+0.85*A(317)-A(318)+A(319)+A(321)+A(325)+A(329)+A(330)+A(332)-A(333)+A(337)-A(338)&
                &+A(342)-A(343)+A(346)-A(347)+A(350)-A(351)+A(355)-A(356)+A(360)-A(361)+A(366)+A(367)+0.7*A(373)+A(388)&
                &+A(389)+A(400)+A(404)+A(406)+A(407)+A(408)+A(409)+A(410)+0.6*A(412)+A(413)+A(416)-A(517)
  Vdot(154) = A(5)+A(8)-A(10)-A(11)-A(12)-A(22)-A(26)+A(28)-A(33)-A(34)-2*A(37)+A(38)+0.05*A(39)+A(40)-A(52)+A(58)-A(72)&
                &+A(78)-A(83)-A(107)-A(131)-A(132)-A(133)-A(137)-A(148)-A(160)-A(177)+0.81*A(204)+A(205)-A(209)-A(212)&
                &-A(213)-A(226)-A(227)-A(228)-A(268)+A(314)+0.15*A(316)+0.15*A(317)+A(333)+A(338)+A(343)+A(347)+A(351)&
                &+A(356)+A(361)+0.3*A(373)+0.4*A(412)-A(518)
  Vdot(155) = 0.3*A(95)+0.5*A(96)-A(101)-A(102)+0.95*A(106)+A(107)-A(108)+A(109)-A(110)+A(121)+0.93*A(122)+0.53*A(125)&
                &+0.5*A(159)+0.15*A(166)+0.15*A(167)+0.578*A(169)+0.3*A(180)+0.5*A(181)+0.36*A(185)-A(198)+A(205)+A(211)&
                &+A(213)-A(219)-A(220)-A(221)-A(222)+0.105*A(223)+0.28*A(224)+0.098*A(225)+A(230)-A(260)-A(261)+A(267)+0.445&
                &*A(269)-2*A(270)-A(271)-A(272)-A(273)-A(276)-A(277)-0.4*A(278)-A(279)-A(280)-A(281)-A(282)-A(283)-A(284)&
                &-A(285)-A(286)-A(287)-A(288)-A(289)-A(290)-A(291)-A(292)-A(293)-A(294)-A(295)-A(296)-A(297)-A(298)-A(299)&
                &+0.1*A(302)+A(352)+0.5*A(364)+0.085*A(365)+0.12*A(372)+0.7*A(373)+A(375)+0.85*A(377)+A(382)+A(384)+A(386)&
                &+A(387)+0.7*A(401)+A(403)+A(407)+A(411)+0.4*A(412)+0.11*A(415)-A(499)
  Vdot(156) = A(119)+0.07*A(122)-A(149)+A(165)+0.25*A(187)+0.64*A(234)-A(404)-A(535)
  Vdot(157) = A(60)-A(61)-A(62)-2*A(63)-2*A(64)-A(65)-A(66)-A(67)+A(68)+A(69)+A(79)-A(90)-A(91)-A(92)-A(93)-A(94)-A(95)&
                &-A(96)-A(97)-A(98)-A(99)-A(100)-A(101)-A(102)-A(565)
  Vdot(158) = A(14)+A(15)+A(16)-A(17)-A(18)-2*A(19)+A(22)-A(23)-A(24)-A(26)+0.95*A(39)+A(41)+A(43)-A(44)+2*A(46)+A(51)&
                &+A(52)+A(53)+A(54)+A(55)+2*A(56)+A(58)+A(61)-A(62)+2*A(64)+2*A(66)+A(71)+A(72)+A(73)+A(74)+A(75)+2*A(76)&
                &+A(78)-A(84)-A(86)-A(88)+A(90)+A(91)+A(92)+0.64*A(93)+0.5*A(94)+0.3*A(95)+0.5*A(96)+A(97)+0.5*A(98)+A(99)&
                &+A(101)+A(105)+0.05*A(106)+A(112)+A(115)+A(116)+0.27*A(118)+0.82*A(123)+0.35*A(125)+0.85*A(126)+A(129)+0.8&
                &*A(130)+0.8*A(131)+A(133)+A(134)-A(136)-A(139)+0.5*A(140)+0.5*A(141)+0.934*A(143)-A(144)+1.2*A(145)+0.8&
                &*A(146)+A(162)+A(163)-A(164)-A(165)-A(166)-A(167)-0.937*A(168)-0.898*A(169)-A(170)-0.925*A(171)-A(172)&
                &-A(173)-A(174)+A(176)+0.64*A(178)+0.5*A(179)+0.3*A(180)+0.5*A(181)+1.1*A(182)+0.91*A(183)+A(184)+0.64&
                &*A(185)+1.7*A(186)+0.375*A(187)+A(188)+0.9*A(189)+0.5*A(190)+A(191)+A(192)+2*A(193)-A(195)-A(196)-A(197)&
                &-A(198)-A(199)-A(200)+0.28*A(202)+0.19*A(204)+0.773*A(207)+A(210)+A(212)+A(217)+A(219)+A(220)+0.237*A(223)&
                &+0.28*A(224)+0.141*A(225)+0.5*A(228)+A(229)+A(230)-0.175*A(252)+0.825*A(253)+0.7*A(262)-A(264)+0.445*A(269)&
                &+A(271)+0.27*A(273)+0.887*A(276)+A(277)+0.4*A(278)+0.85*A(279)+A(280)+0.5*A(282)+0.8*A(283)+A(297)+0.05&
                &*A(301)+A(304)-0.1*A(306)+0.61*A(309)-0.5*A(310)+0.69*A(311)-0.56*A(312)-A(317)+A(320)+A(321)-0.85*A(323)&
                &+A(325)-0.5*A(327)+A(328)+0.5*A(364)-A(368)-A(369)+A(372)+A(374)+1.73*A(378)+2*A(379)+A(382)+A(384)+A(386)&
                &+A(387)+A(388)+A(389)+A(390)+A(391)+A(392)+A(393)+A(394)+A(395)+0.985*A(396)+0.985*A(397)+0.985*A(398)&
                &+A(399)+A(400)+0.3*A(401)+A(402)+0.27*A(404)+A(406)+A(408)+A(409)+A(413)+0.89*A(415)+A(416)-A(463)
      
END SUBROUTINE Fun

! End of Fun function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



END MODULE aromatics_kpp_Function

